/gs /gsave load def
/gr /grestore load def
/sg /setgray load def
/srgb /setrgbcolor load def
/slw /setlinewidth load def
/str /stroke load def

/pl				% x y pl x y
{
transform
0.25 sub round 0.25 add exch
0.25 sub round 0.25 add exch
itransform
} def
/setstrokeadjust where
	{
	pop true setstrokeadjust
	/c				% x1 y1 x2 y2 x3 y3 c -
	{curveto} def
	/C /c load def
	/v				% x2 y2 x3 y3 v -
	{currentpoint 6 2 roll curveto} def
	/V /v load def
	/y				% x1 y1 x2 y2 y -
	{2 copy curveto} def
	/Y /y load def
	/l				% x y l -
	{lineto} def
	/L /l load def
	/m				% x y m -
	{moveto} def
	}
	{%else
	/c
	{pl curveto} def
	/C /c load def
	/v
	{currentpoint 6 2 roll pl curveto} def
	/V /v load def
	/y
	{pl 2 copy curveto} def
	/Y /y load def
	/l
	{pl lineto} def
	/L /l load def
	/m
	{pl moveto} def
}ifelse